home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / misc / medical / mendelge.cpt / MendelGenetics / MENDELIAN GENETICS I / card_86651.txt < prev    next >
Text File  |  1989-06-13  |  7KB  |  250 lines

  1. -- card: 86651 from stack: in
  2. -- bmap block id: 123340
  3. -- flags: 0000
  4. -- background id: 2665
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 0002
  11. -- rect: left=270 top=21 right=41 bottom=333
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: maxy
  20.  
  21.  
  22. -- part 2 (field)
  23. -- low flags: 00
  24. -- high flags: 0002
  25. -- rect: left=270 top=43 right=63 bottom=333
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: miny
  34.  
  35.  
  36. -- part 4 (field)
  37. -- low flags: 00
  38. -- high flags: 0002
  39. -- rect: left=379 top=21 right=41 bottom=442
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 0
  43. -- font id: 3
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: ex
  48.  
  49.  
  50. -- part 5 (field)
  51. -- low flags: 00
  52. -- high flags: 0002
  53. -- rect: left=379 top=44 right=64 bottom=442
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 0
  57. -- font id: 3
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: wye
  62.  
  63.  
  64. -- part 6 (button)
  65. -- low flags: 00
  66. -- high flags: 8003
  67. -- rect: left=379 top=67 right=88 bottom=444
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 1
  71. -- font id: 0
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: PLOT
  76. ----- HyperTalk script -----
  77. on mouseUp
  78.   global units
  79.   global ypoint
  80.   global scale
  81.   global counter
  82.   global xone
  83.   global yone
  84.   add 1 to counter
  85.   put the value of (card field maxy - card field miny) into units
  86.   put the value of (200 / units) into scale
  87.   put the value of (300 - ((the value of card field wye - card field miny) * scale)) into ypoint
  88.   choose pencil tool
  89.   set linesize to 1
  90.   if the value of counter >=2 then
  91.     drag from (300 + (2 * card field ex)), (trunc (ypoint)) to (xone), (yone)
  92.   end if
  93.   put the value of (300 + (2 * card field ex)) into xone
  94.   put the value of (trunc (ypoint)) into yone
  95.   choose browse tool
  96.   delete line 1 of card field ex
  97.   get the location of card field ex
  98.   click at it
  99. end mouseUp
  100.  
  101.  
  102.  
  103. -- part 7 (button)
  104. -- low flags: 00
  105. -- high flags: 8003
  106. -- rect: left=446 top=67 right=88 bottom=511
  107. -- title width / last selected line: 0
  108. -- icon id / first selected line: 0 / 0
  109. -- text alignment: 1
  110. -- font id: 0
  111. -- text size: 12
  112. -- style flags: 0
  113. -- line height: 16
  114. -- part name: CLEAR
  115. ----- HyperTalk script -----
  116. on mouseUp
  117.   global ypoint
  118.   global units
  119.   global scale
  120.   global counter
  121.   global xone
  122.   global yone
  123.   put 0 into yone
  124.   put 0 into xone
  125.   put 0 into counter
  126.   put 0 into scale
  127.   put 0 into units
  128.   put 0 into ypoint
  129.   choose select tool
  130.   drag from 301,100 to 502, 298
  131.   doMenu "Pickup"
  132.   choose browse tool
  133.   delete line 1 of card field ex
  134.   delete line 1 of card field wye
  135.   delete line 1 of card field miny
  136.   delete line 1 of card field maxy
  137.   get the location of card field maxy
  138.   click at it
  139. end mouseUp
  140.  
  141.  
  142.  
  143. -- part 8 (button)
  144. -- low flags: 00
  145. -- high flags: 8003
  146. -- rect: left=264 top=67 right=89 bottom=341
  147. -- title width / last selected line: 0
  148. -- icon id / first selected line: 0 / 0
  149. -- text alignment: 1
  150. -- font id: 0
  151. -- text size: 12
  152. -- style flags: 0
  153. -- line height: 16
  154. -- part name: NEW LINE
  155. ----- HyperTalk script -----
  156. on mouseUp
  157.   global counter
  158.   put 0 into counter
  159.   get the location of card field ex
  160.   click at it
  161. end mouseUp
  162.  
  163.  
  164.  
  165. -- part 9 (button)
  166. -- low flags: 00
  167. -- high flags: 8003
  168. -- rect: left=205 top=315 right=337 bottom=256
  169. -- title width / last selected line: 0
  170. -- icon id / first selected line: 0 / 0
  171. -- text alignment: 1
  172. -- font id: 0
  173. -- text size: 12
  174. -- style flags: 0
  175. -- line height: 16
  176. -- part name: NEXT
  177. ----- HyperTalk script -----
  178. on mouseUp
  179.   go to next card
  180. end mouseUp
  181.  
  182.  
  183.  
  184. -- part 10 (button)
  185. -- low flags: 00
  186. -- high flags: 8003
  187. -- rect: left=149 top=314 right=337 bottom=199
  188. -- title width / last selected line: 0
  189. -- icon id / first selected line: 0 / 0
  190. -- text alignment: 1
  191. -- font id: 0
  192. -- text size: 12
  193. -- style flags: 0
  194. -- line height: 16
  195. -- part name: PREV.
  196. ----- HyperTalk script -----
  197. on mouseUp
  198.   go back
  199. end mouseUp
  200.  
  201.  
  202.  
  203. -- part 11 (button)
  204. -- low flags: 00
  205. -- high flags: 8003
  206. -- rect: left=258 top=315 right=340 bottom=313
  207. -- title width / last selected line: 0
  208. -- icon id / first selected line: 0 / 0
  209. -- text alignment: 1
  210. -- font id: 0
  211. -- text size: 12
  212. -- style flags: 0
  213. -- line height: 16
  214. -- part name: COPY
  215. ----- HyperTalk script -----
  216. on mouseUp
  217.   choose select tool
  218.   drag from 259,90 to 508,326
  219.   doMenu "Copy Picture"
  220.   doMenu "Scrapbook"
  221.   doMenu "Paste Picture"
  222.   choose browse tool
  223. end mouseUp
  224.  
  225.  
  226.  
  227. -- part contents for background part 1
  228. ----- text -----
  229. GRAPH PLOTTER
  230.  
  231. -- part contents for background part 2
  232. ----- text -----
  233. You may find this card handy for plotting data obtained from various exercises you may have run on other cards. Click on the clear button and then enter the maximum and minimum Y values of your data. Remember to change windows by hitting the TAB button on your keyboard. Hit the TAB button a third time and enter an X value. If you have made less than 20 or so observations, then number X's as 5,10,15 etc. The X axis can take an input value maximum of 100 but no more. If you have many observations, you can enter them as 1,2,3, etc. Enter the corresponding Y value for the X and click on the PLOT button. Nothing will happen during the first entry but after your second entry, a line between the data points will be drawn every time you enter new values and hit the PLOT button. If you wish, you can identify the line through the appropriate use of the TOOLS menu items. To plot a second line, click on the NEW LINE button and enter your second set of data. A new line will be drawn. Note, if a plot on your second line coincides with a previously logged data point, then a line will not be drawn because clicking a second time on a point erases it. To avoid such difficulty, it is advisable to log the X values one or two units above or below the previous value. Thus if the original line X values are 10,20,30; the second line might be 11,21,31 etc. If data points do not coincide, there is no problem. Note that any spread of Y can be plotted as long as you bracket your data points with maximum and minimum values. Click on the COPY button to put your graph into the Scrapbook for later transfer to other cards.  Have fun!
  234.  
  235.  
  236. -- part contents for background part 8
  237. ----- text -----
  238. 61
  239.  
  240. -- part contents for card part 1
  241. ----- text -----
  242. 50
  243.  
  244. -- part contents for card part 2
  245. ----- text -----
  246. 5
  247.  
  248. -- part contents for card part 5
  249. ----- text -----
  250. 20